delphi 中Fields[1].AsString;是什么意思?

来源:百度知道 编辑:UC知道 时间:2024/05/21 23:42:23
本人刚刚学DELPHI 这段代码rocedure TForm4。Button2Click(Sender: TObject);
begin
Form5.Label1.Caption:=”;
Form5.Show;
Form4.Hide;

Form3.Table1.last;
Form4.Table1.last;
last1:=Form3.table1.Fields[1].AsString;
last2:=Form4.Table1.Fields[1].AsString;
Form3.Table1.First;
repeat
Form4.Table1.First;
repeat
f Form3.Table1.Fields[1].AsString=Form4.Table1.Fields[1].AsString
then
begin

中的last1:=Form3.table1.Fields[1].AsString;是什么含义 ?我现在是做一个公交查询系统
这是总的设计思路 首先确定起始站点,在公交总表中(Form2.Table1)以起点为索引查找过此站点的车次,列为Form3Table1。其次确定终点,同样在公交总表中(Form2.Table1)以终点为索引查找过此站点的车次,列为Form4Table1。比较Form3Table1和Form4Table1中是否有车次相同,若有则为直达车,输出结果。若没有则选取Form3Table1中的第一行车次,将它的所有经过站点列为Form3.Table2。 再选取Form4Table1中的第一行车次,将它的所有经过站点列为Form4.Table2。比较Form3.Table2和Form4.Table2中站点是否有重复,若有,则输出Form3Table1和Form4Table1中当前车次,转车站点为Form3.Table2和Form4.Table2中重复的站点。若没有,将Form4Table1中取下一行车次,将过此车次的站点列为Form4。Table2,重复以上过程直到Form4Table1的最后一行车次。将Form3Table1取下一行车次,将过

last1:=Form3.table1.Fields[1].AsString;

就是将FORM3中的表TABLE1里的第一列的值赋给了LAST1。(这里说第一列似乎也不怎么正确!因为一个表里可以有很多行,那样的话一列就不可能是一个数了 !)